home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / actform / frmstret.frm < prev    next >
Text File  |  1999-06-09  |  2KB  |  88 lines
  1. VERSION 5.00
  2. Object = "{D03D0B40-1D01-11D2-9399-E83A09C10000}#1.0#0"; "RESIZE.OCX"
  3. Begin VB.Form frmStretch 
  4.    Caption         =   "Demo Stretch Mode"
  5.    ClientHeight    =   4515
  6.    ClientLeft      =   105
  7.    ClientTop       =   390
  8.    ClientWidth     =   5790
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4515
  11.    ScaleWidth      =   5790
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CheckBox Check1 
  14.       Caption         =   "Stretch label text font as well"
  15.       Height          =   495
  16.       Left            =   240
  17.       TabIndex        =   5
  18.       Top             =   2880
  19.       Width           =   3375
  20.    End
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "OK"
  23.       Height          =   495
  24.       Left            =   1920
  25.       TabIndex        =   4
  26.       Top             =   3600
  27.       Width           =   2055
  28.    End
  29.    Begin VB.TextBox Text2 
  30.       Height          =   495
  31.       Left            =   1920
  32.       TabIndex        =   3
  33.       Text            =   "Text2"
  34.       Top             =   1560
  35.       Width           =   2295
  36.    End
  37.    Begin VB.TextBox Text1 
  38.       Height          =   615
  39.       Left            =   1920
  40.       TabIndex        =   1
  41.       Text            =   "Text1"
  42.       Top             =   480
  43.       Width           =   2295
  44.    End
  45.    Begin RESIZELib.Resize Resize1 
  46.       Left            =   0
  47.       Top             =   3840
  48.       _Version        =   131073
  49.       _ExtentX        =   847
  50.       _ExtentY        =   847
  51.       _StockProps     =   0
  52.       ResizeInfo      =   "frmStretch.frx":0000
  53.       Stretch         =   1
  54.       StretchFont     =   1
  55.    End
  56.    Begin VB.Label Label2 
  57.       Caption         =   "Password:"
  58.       Height          =   375
  59.       Left            =   360
  60.       TabIndex        =   2
  61.       Top             =   1680
  62.       Width           =   1095
  63.    End
  64.    Begin VB.Label Label1 
  65.       Caption         =   "Name:"
  66.       Height          =   495
  67.       Left            =   360
  68.       TabIndex        =   0
  69.       Top             =   600
  70.       Width           =   975
  71.    End
  72. End
  73. Attribute VB_Name = "frmStretch"
  74. Attribute VB_GlobalNameSpace = False
  75. Attribute VB_Creatable = False
  76. Attribute VB_PredeclaredId = True
  77. Attribute VB_Exposed = False
  78. Private Sub Check1_Click()
  79.     Resize1.StretchFont = Check1.Value
  80.     frmStretch.Refresh
  81.     
  82. End Sub
  83.  
  84. Private Sub Form_Load()
  85. Check1.Value = Resize1.StretchFont
  86.  
  87. End Sub
  88.